COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C******  PTMOVE.F4  ALSO SUBR. TURN (FOR PAGE-TURN FINDING)
C00014 ENDMK
C⊗;
C******  PTMOVE.F4  ALSO SUBR. TURN (FOR PAGE-TURN FINDING)
	SUBROUTINE PTMOVE(RN,PWDS)
	IMPLICIT INTEGER(A-Q,S-Z)
	DIMENSION R(2,400),IR(2,400),RN(1),PWDS(1)
	COMMON/KNR/KR(400) /NNP/NP(400)
	REAL POS,EXTEN,PRCNT,ACCX,SPFAC
	COMMON/STF/RSTFAC(0/7),RSTJ2
	COMMON  /KJY/ KY,JY
	COMMON R2,JA,CENTR,J2,RJQ(18),RNO,JR,LX,RDIS
	COMMON/POSI/STFF(0/7),JJ2,POS/LLL/ITEM,LL,I,IX
	1 /IPG/IPG,JPG,BRACK,RSTNUM(8),RPSZ(8),RHGT(8),
	1 RCLEF(0/7)
      EQUIVALENCE (R5,RJQ(3)),(R7,RJQ(5)),(R4,RJQ(2))
	1,(R3,RJQ(1)),(R8,RJQ(6)),(R9,RJQ(7))
	1,(IR,R)
	DATA RSP/2.7/,RI/4.7/,SPFAC/2.7/
C RI IS SIZE FACTOR FOR SPACING. IF LARGER THEN REQUIRES MORE SPACE.
	JJ2=-1
	J2=0
C  99=BACKUP
	IF(LL.EQ.'J')GO TO 12
	RDIS=0
CCC66	NST=1
	JJ=0 
	IF(R4.NE.R8.OR.R5.NE.R9)JJ=-1
	JY=0
C  JY IS CHANGED IN GETPTS
	IF(JJ)CALL GETPTS(LX,RN,PWDS)
	IF(JY.EQ.0)RETURN
	CALL MOVIT(RN)
	RETURN
12	IF(R4.EQ.0)R4=.001
CCC	IF(R5.EQ.0)R5=200
	RCNT=0
	RRT=R5
	RZRO=R4
	RJSZ=RI
	CALL GETPTS(LX,RN,PWDS)
	IF(JY.EQ.0)RETURN
	ROV=RRT
	PRCNT=1.
CCC NOT USED IN PAGE	R7=R2
19	IF(RCNT.GT.9)GO TO 101
	RJSZ=RJSZ-.06
	RP=PRCNT
	RCNT=RCNT+1

	DO 11 KN=0,JPG-1
CC	DO 11 KN=-3,4
CCC	KN=R2
	RSPC=0
	R8=KN
	N=0

CP	RBB=-100
	DO 2 K=1,KY
C  WAS -1 ABOVE BECAUSE GETPTS GOES TOO FAR
	L=NP(K)
	RL=RN(L)
	RA=RN(L+1)
	RB=RN(L+3)
CP	IF(RB.LT.RBB)GO TO 280
CP	RBB=RB
	IF(RN(L+2).EQ.R8)GO TO 77
C  THIS STAFF?
	IF(RA.NE.4)GO TO 2
C  SKIPS HOMED NOTES (IN CHORDS)
CC77	IF(RA.EQ.1)GO TO 10
CC27	IF(RA.LE.4)GO TO 177
77	IF(RA.LT.3)GO TO 20
	IF(RA.EQ.4)GO TO 444
	IF(RA.EQ.3)GO TO 333
C  LOOKS AT NOTES,RESTS,CLEFS,BAR LINES,KSIGS,METERS.
	IF(RA.LT.17)GO TO 2
	GO TO 10
333	IF(RL.LT.3)GO TO 10
C  <3 MEANS NOTHING IN P5
	IF(RN(L+5).GT.4)GO TO 2
C  NOT A REAL CLEF IF >3
	GO TO 10
444	IF(RL.GT.3)GO TO 2
C FINDS REPEAT BARS. (WDCNT IS 3[+2], 5 PARAMS)
C  SHOULD CHECK ON BAR LINES NO MATTER WHICH STAFF
	GO TO 10
20	IF(RA.NE.2)GO TO 10
	IF(RN(L+6))GO TO 2
C SKIP INVISIBLE RESTS. (PUT THIS IN OTHER JUST. PROGS.)
10	N=N+1
	R(1,N)=RB
	IR(2,N)=L
	IF(N.EQ.200)GO TO 28
C  ONLY TREATS 200 ITEMS AT A TIME.
2	CONTINUE

280	IF(N.EQ.0)GO TO 11
28	DO 23 K=1,N
23	IF(RN(IR(2,K)+1).NE.4)GO TO 24
C  SKIPS IF ONLY BAR LINES ON THIS STAFF
	GO TO 11
24	RSZ=RSTFAC(KN)*PRCNT
	CALL SORT2(R,N)

C  JUMP IF LAST IS A BAR LINE.
	K=0
	JLDGR=0
     	JX=0
22	K=K+1
122	L=IR(2,K)
	RA=RN(L+1)
	RB=0
	RD=0
	RX=RN(L+5)
C  RX=PARAM 5
	RX6=RN(L+6)
	RY=1
	RW=AMOD(RN(L+4),100.)
	RSP=SPFAC*RSTFAC(IFIX(RN(L+2)))
	IF(RA.GT.1)GO TO 4
	RZ=RN(L+7)
	IF(LDGR.NE.JLDGR)JLDGR=0
	LDGR=0
	JK=K
	DO 32 JJ=JK+1,N+1
	K=JJ
	RB=R(1,JJ)-R(1,JJ-1)
	IF(RB.GT.0.1)GO TO 320
C  PUTS THEM AT EXACT SAME POINT IF CLOSER THAN .1
	R(1,JJ)=R(1,JJ-1)
	GO TO 32
320	IF(RB.GT.RSP)GO TO 35
32	CONTINUE
C  FOUND HOW MANY MEMBERS TO CHORD.
35	RB=0
	K=K-1
	RQ=0
CC125	IF(AMOD(RN(L+4),200.).GT.60.)RY=.6
125	RC=ABS(RN(L+4))
	
	IF(RC.LT.60)GO TO 137
	IF(RC.LT.180)RY=.6
C  FOUND A MINI-NOTE
137	DO 37 JJ=JK,K-1
	IF(RD.NE.0)GO TO 38
C FINDS ONLY HIGH OR! LOW LED. LINE.
	JR=IR(2,JJ)
	RW=AMOD(RN(JR+4),100.)
	IF(RW.GT.12)GO TO 277
	IF(RW.GE.2)GO TO 38
277	LDGR=-1
	IF(RW.GT.11)LDGR=1
	IF(JLDGR.EQ.LDGR)GO TO 36
	JLDGR=LDGR
C LDGR IS FOR LEDGER LINES.
	GO TO 38
36	RD=1.5
	RQ=RD
38	IF(RB.GT.2)GO TO 222
C  JUMP IF LARGE SPACE AFTER NOTE IS ALREADY SET UP.
	RZZ=RN(JR+7)
	RE=RN(JR+5)
	IF(RB.GE.2)GO TO 477

	RC=1.5
	IF(RZZ.LT.10)GO TO 378
	IF(RZZ.GE.20)RC=3.
C   10=DOT, 20=DOUBLE DOT
	GO TO 377
378	IF(RE.GE.20)GO TO 477
	IF(AMOD(RZZ,10.).EQ.0)GO TO 477
377	RB=RC+EXTEN(RZZ)
C  SPACE FOR DOT OR TAIL(IF STEM UP)
477	IF(ABS(RN(JR+6)).EQ.10)RB=RB+2
C  FOR CHORD TONES ON RIGHT OF STEM UP.
C  LOOKS THROUGH ALL NOTES OF A CHORD.
222	KX=AMOD(RE,10.)
	IF(KX.EQ.0)GO TO 37
CSP222	IF(AMOD(RE,10.).EQ.0)GO TO 37 
C  JUMP IF NO ACCIS.
425	RD=2*RY+EXTEN(RE)
	IF(KX.EQ.4)RD=RD+1.5
C  KX=4  = bb
	IF(RQ.GT.RD)RD=RQ
	RQ=RD
C  FUNCT. EXTEN=AMOD(X,1.)*10.
37 	CONTINUE
	IF(RY.NE.1)RB=RB-.5*RJSZ
C  MINI NOTES NEED LESS SPACE
250	ACCX=0
	RC=0
	RW=R(1,JX+1)
	DO 132 JJ=JX+1,N  
	IF(RW.NE.R(1,JJ))GO TO 25
	KX=IR(2,JJ)
C  GET POINTER
	IF(RN(KX+1).NE.1)GO TO 25
C  ONLY CHECK ON NOTES (THIS IS FOR CHRD NOTES WITH ACCIS)
	RE=ABS(RN(KX+6))
	IF(RE.GE.10)RC=-2.6
	IF(RE.EQ.20)RC=-RC
CC 2/25/76	IF(ABS(RN(KX+6)).GE.20)RC=2.6
	RE=AMOD(RN(KX+5),10.0)
C  FIND AN ACCI
CCCCC	IF(RE.EQ.0)GO TO 132
	IF(RE.GE.1)RC=RC+2
C  FOUND AN ACCI
	RC=AMOD(RE,1.0)*10.0+RC
C  ADD ANY EXTENSION TO THE LEFT
	IF(RC.GT.ACCX)ACCX=RC
	RC=0
	IF(ACCX.GT.RD)RD=ACCX
132	CONTINUE
CC25	IF(JX.GT.0)R(2,JX)=R(2,JX)+RD*RSZ
CC	GO TO 17
	GO TO 25

4	IF(RA.NE.2)GO TO 33
C  NEXT FOR DOTTED RESTS - IN P6
	IF(RN(L).GE.4)RB=RN(L+6)*1.5
	GO TO 250

CC33	RSP=RSP*.2
33	IF(K.LT.N)RE=RN(IR(2,K+1)+1)
C RE = NEXT CODE NUM.
	IF(RA.NE.3)GO TO 29
CSP	RB=3
	RB=5
	IF(RE.GT.2)RB=4
	IF(RN(L+4).GT.80)RB=1.5
C  CHECK ON SIZE NEEDED FOR CLEFS  >80 = MINICLEF
29	IF(RA.NE.4)GO TO 26
	RB=-RJSZ/6
CSP	RB=-RJSZ/2
   	IF(RE.GT.2)RB=RB*3
	RD=.9
	GO TO 25

26	IF(RA.NE.18)GO TO 30
	RC=0
	IF(RN(L).GE.7)RC=9
C FOR COMPOSITE METERS. NO CHECK FOR DBL DIGITS YET.
	RB=1
CSP	RB=-1
	RD=1
	IF(RX6.LE.9.AND.RX.LE.9)GO TO 31
C  CHECKS FOR 2-DIGIT METERS
	RD=2
	RB=1
CSP	RB=0
31	RB=RB+RC
	GO TO 25
CN31	RB=2
CN	RD=3

30	IF(RA.NE.17)GO TO 17
	RX=ABS(RX)
	IF(RX.GE.100)RX=RX-100
C  +100 FOR NATURALS AS KEYSIG.
	RB=2*(RX-1)-1
CSP	RB=2*(RX-1)-2
C  SPACES FOR CORRECT NUM OF ACCIS.  RX=NUM OF ACCIS.
	RD=2
CC	GO TO 25

25	IF(JX.GT.0)R(2,JX)=R(2,JX)+RD*RSZ
17	RC=(RB+RJSZ)*RSZ
C  RJSZ=DEFAULT SIZE
	JX=K
C  ↑↑↑↑↑ TO RESET AFTER CHORD NOTES 12/75
	R(2,JX)=RC
3	IF(K.LT.N)GO TO 22
	RA=R(1,1)
	RB=R(2,1)

	DO 13 KX=2,JX
	RE=R(1,KX)
C  POS. BEFORE SHIFTING
CC	IF(ABS(RE-RA).GT.1.)GO TO 14
	IF(ABS(RE-RA).GT..5)GO TO 14
	IF(R(2,KX).GT.RB)GO TO 16
C  SKIPS DOUBLE STOPS AND VERY CLOSE ITEMS
	GO TO 13
C  JUMP WHEN SPACE TO ADD IS SMALLER THAN WHAT'S ALREADY THERE
14	RD=RA+RB-RE
	IF(RD.LE.0)GO TO 16
C  THERE'S ENOUGH ROOM
	ROV=ROV+RD
140	R4=RE+RSPC-.001
	R5=10000
	R8=RD
	R9=0
C  GO EXPAND IT
	IF(R(2,KX).EQ.0)GO TO 15
	CALL MOVIT(RN)
CCC NOT USED IN PAGE.	IF(R2.LE.4)GO TO 15
CCC	R5=R4
CCC	R4=RA+.001+RSPC
CCC	R8=R4
CCC	R9=R5+RD-.001
C  FOR ITEMS ON OTHER LINES.
CCC	CALL MOVIT(RN)
15	RSPC=RSPC+RD
C  RSPC SAVES TOTAL SPACE ADDED
16	RB=R(2,KX)
13	RA=RE
11	CONTINUE
110	IF(ROV.LE.RRT+.01)RETURN
	IF(RJSZ.GT.4)RJSZ=4
	PRCNT=(ROV-RZRO)/(RRT-RZRO)
	IF(PRCNT.NE.RP)GO TO 19
C  GO BACK AND EXPAND SOME MORE
101	R4=RZRO
	R5=ROV
	R8=RZRO
	R9=RRT-.001
C  JUSTIFYING SPACE DIMINISHES EACH TIME AROUND.
	CALL MOVIT(RN)
C  RVX SHOULD BE FARTHEST POINT TO RIGHT.
	END

	SUBROUTINE TURN(J,K,L,X)
C  FINDS RESTS BEFORE AND AFTER BAR LINES FOR PAGE TURNS
	COMMON /PX/KPN(1) /Q/Q(1)
	DATA RMETER/4.0/
	DO 1 M=J,K,L
	R=CODEN(KPN,M,Q,N)
	IF(R.EQ.1)RETURN
	IF(R.EQ.4)RETURN
	IF(R.NE.18)GO TO 3
C FINDS LAST METER GIVEN (4/4 IS DEFAULT)
	IF(Q(N+5).LT.98)GO TO 4
	RMETER=4
	GO TO 1
4	RMETER=4.01/Q(N+6)*Q(N+5)
C 2ND PART OF COMPOSITE METERS ARE IGNORED.*******
	GO TO 1
3	IF(R.NE.2)GO TO 1
	IF(Q(N).LT.6)GO TO 2
C LOOK  FOR NUMBERED RESTS AND REPEAT BARS (P8=-4, -5)
	IF(Q(N+8).LE.-4)RETURN
C NOW WE HAVE A NUMBERED REST.  MULT. NUMB. BY RHYTH. VALUE OF METER.
	X=X+Q(N+8)*RMETER
	GO TO 1
2	X=X+Q(N+7)
1	CONTINUE
	END